(server-program): Add exec-directory to value.

diff --git a/lisp/server.el b/lisp/server.el
index 416cadebd81d84a049c74ff896c67ea19cd96d2f..6a0ee45ef7a4f5acd1454b6fb5eacea2302ae02a 100644 (file)
--- a/lisp/server.el
+++ b/lisp/server.el
@@ -73,8 +73,8 @@
 
 ;;; Code:
 \f
-(defvar server-program "emacsserver"
-  "*The program to use as the edit server")
+(defvar server-program (concat exec-directory "emacsserver")
+  "*The program to use as the edit server.")
 
 (defvar server-visit-hook nil
   "*List of hooks to call when visiting a file for the Emacs server.")